/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / xlisp_21.zoo / xl-006.bug

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 73 63 65 | 21 6d 69 74 65 6c 21 75 |From sce|!mitel!u|
|00000010| 75 6e 65 74 21 7a 65 70 | 68 79 72 2e 65 6e 73 2e |unet!zep|hyr.ens.|
|00000020| 74 65 6b 2e 63 6f 6d 21 | 74 65 6b 63 72 6c 21 74 |tek.com!|tekcrl!t|
|00000030| 65 6b 67 76 73 21 74 6f | 6d 61 20 54 68 75 20 44 |ekgvs!to|ma Thu D|
|00000040| 65 63 20 20 37 20 30 38 | 3a 35 32 3a 32 32 20 45 |ec  7 08|:52:22 E|
|00000050| 53 54 20 31 39 38 39 0a | 41 72 74 69 63 6c 65 3a |ST 1989.|Article:|
|00000060| 20 34 32 20 6f 66 20 63 | 6f 6d 70 2e 6c 61 6e 67 | 42 of c|omp.lang|
|00000070| 2e 6c 69 73 70 2e 78 0a | 50 61 74 68 3a 20 63 6f |.lisp.x.|Path: co|
|00000080| 67 6e 6f 73 21 73 63 65 | 21 6d 69 74 65 6c 21 75 |gnos!sce|!mitel!u|
|00000090| 75 6e 65 74 21 7a 65 70 | 68 79 72 2e 65 6e 73 2e |unet!zep|hyr.ens.|
|000000a0| 74 65 6b 2e 63 6f 6d 21 | 74 65 6b 63 72 6c 21 74 |tek.com!|tekcrl!t|
|000000b0| 65 6b 67 76 73 21 74 6f | 6d 61 0a 46 72 6f 6d 3a |ekgvs!to|ma.From:|
|000000c0| 20 74 6f 6d 61 40 74 65 | 6b 67 76 73 2e 4c 41 42 | toma@te|kgvs.LAB|
|000000d0| 53 2e 54 45 4b 2e 43 4f | 4d 20 28 54 6f 6d 20 41 |S.TEK.CO|M (Tom A|
|000000e0| 6c 6d 79 29 0a 4e 65 77 | 73 67 72 6f 75 70 73 3a |lmy).New|sgroups:|
|000000f0| 20 63 6f 6d 70 2e 6c 61 | 6e 67 2e 6c 69 73 70 2e | comp.la|ng.lisp.|
|00000100| 78 0a 53 75 62 6a 65 63 | 74 3a 20 4d 6f 72 65 20 |x.Subjec|t: More |
|00000110| 58 4c 49 53 50 20 42 75 | 67 73 0a 4d 65 73 73 61 |XLISP Bu|gs.Messa|
|00000120| 67 65 2d 49 44 3a 20 3c | 36 34 36 30 40 74 65 6b |ge-ID: <|6460@tek|
|00000130| 67 76 73 2e 4c 41 42 53 | 2e 54 45 4b 2e 43 4f 4d |gvs.LABS|.TEK.COM|
|00000140| 3e 0a 44 61 74 65 3a 20 | 34 20 44 65 63 20 38 39 |>.Date: |4 Dec 89|
|00000150| 20 31 38 3a 31 38 3a 33 | 34 20 47 4d 54 0a 52 65 | 18:18:3|4 GMT.Re|
|00000160| 70 6c 79 2d 54 6f 3a 20 | 74 6f 6d 61 40 74 65 6b |ply-To: |toma@tek|
|00000170| 67 76 73 2e 4c 41 42 53 | 2e 54 45 4b 2e 43 4f 4d |gvs.LABS|.TEK.COM|
|00000180| 20 28 54 6f 6d 20 41 6c | 6d 79 29 0a 4f 72 67 61 | (Tom Al|my).Orga|
|00000190| 6e 69 7a 61 74 69 6f 6e | 3a 20 54 65 6b 74 72 6f |nization|: Tektro|
|000001a0| 6e 69 78 2c 20 49 6e 63 | 2e 2c 20 42 65 61 76 65 |nix, Inc|., Beave|
|000001b0| 72 74 6f 6e 2c 20 20 4f | 52 2e 0a 4c 69 6e 65 73 |rton,  O|R..Lines|
|000001c0| 3a 20 31 31 30 0a 0a 0a | 09 09 09 09 09 09 09 09 |: 110...|........|
|000001d0| 31 32 2f 34 2f 38 39 0a | 0a 49 20 77 61 73 20 74 |12/4/89.|.I was t|
|000001e0| 72 79 69 6e 67 20 73 6f | 6d 65 20 65 78 61 6d 70 |rying so|me examp|
|000001f0| 6c 65 73 20 69 6e 20 43 | 6f 6d 6d 6f 6e 20 4c 69 |les in C|ommon Li|
|00000200| 73 70 3a 20 54 68 65 20 | 52 65 66 65 72 65 6e 63 |sp: The |Referenc|
|00000210| 65 2c 20 61 6e 64 20 66 | 6f 75 6e 64 20 73 6f 6d |e, and f|ound som|
|00000220| 65 0a 62 75 67 73 20 28 | 62 6f 74 68 20 72 65 61 |e.bugs (|both rea|
|00000230| 6c 20 61 6e 64 20 63 6f | 6d 70 61 74 69 62 69 6c |l and co|mpatibil|
|00000240| 69 74 79 29 20 69 6e 20 | 58 4c 49 53 50 20 32 2e |ity) in |XLISP 2.|
|00000250| 30 2f 32 2e 31 0a 0a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |0/2.1..*|********|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 0a 44 6f 75 |********|***..Dou|
|00000270| 62 6c 65 20 71 75 6f 74 | 65 73 20 61 72 65 20 6e |ble quot|es are n|
|00000280| 6f 74 20 65 73 63 61 70 | 65 64 20 77 68 65 6e 20 |ot escap|ed when |
|00000290| 70 72 69 6e 74 69 6e 67 | 2e 0a 28 46 69 78 20 6e |printing|..(Fix n|
|000002a0| 65 65 64 65 64 20 69 6e | 20 70 75 74 71 73 74 72 |eeded in| putqstr|
|000002b0| 69 6e 67 20 74 6f 20 68 | 61 6e 64 6c 65 20 63 61 |ing to h|andle ca|
|000002c0| 73 65 20 6f 66 20 27 22 | 27 29 2e 0a 0a 63 68 61 |se of '"|')...cha|
|000002d0| 6e 67 65 3a 0a 20 20 20 | 20 69 66 20 28 63 68 20 |nge:.   | if (ch |
|000002e0| 3c 20 30 34 30 20 7c 7c | 20 63 68 20 3d 3d 20 27 |< 040 ||| ch == '|
|000002f0| 5c 5c 27 20 7c 7c 20 63 | 68 20 3e 20 30 31 37 36 |\\' || c|h > 0176|
|00000300| 29 20 7b 0a 74 6f 3a 0a | 20 20 20 20 69 66 20 28 |) {.to:.|    if (|
|00000310| 63 68 20 3c 20 30 34 30 | 20 7c 7c 20 63 68 20 3d |ch < 040| || ch =|
|00000320| 3d 20 27 5c 5c 27 20 7c | 7c 20 63 68 20 3d 3d 20 |= '\\' ||| ch == |
|00000330| 27 22 27 20 7c 7c 20 63 | 68 20 3e 20 30 31 37 36 |'"' || c|h > 0176|
|00000340| 29 20 7b 0a 0a 63 68 61 | 6e 67 65 3a 0a 20 20 20 |) {..cha|nge:.   |
|00000350| 20 63 61 73 65 20 27 5c | 5c 27 3a 0a 09 78 6c 70 | case '\|\':..xlp|
|00000360| 75 74 63 28 66 70 74 72 | 2c 27 5c 5c 27 29 3b 0a |utc(fptr|,'\\');.|
|00000370| 09 62 72 65 61 6b 3b 0a | 0a 74 6f 3a 0a 20 20 20 |.break;.|.to:.   |
|00000380| 20 63 61 73 65 20 27 5c | 5c 27 3a 0a 20 20 20 20 | case '\|\':.    |
|00000390| 63 61 73 65 20 27 22 27 | 3a 0a 09 78 6c 70 75 74 |case '"'|:..xlput|
|000003a0| 63 28 66 70 74 72 2c 63 | 68 29 3b 0a 09 62 72 65 |c(fptr,c|h);..bre|
|000003b0| 61 6b 3b 0a 0a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ak;..***|********|
|000003c0| 2a 2a 2a 2a 2a 2a 2a 0a | 49 6e 20 76 65 72 73 69 |*******.|In versi|
|000003d0| 6f 6e 20 32 2e 31 2c 20 | 23 53 28 29 20 63 6f 6e |on 2.1, |#S() con|
|000003e0| 73 74 72 75 63 74 20 64 | 6f 65 73 6e 27 74 20 71 |struct d|oesn't q|
|000003f0| 75 6f 74 65 20 65 6c 65 | 6d 65 6e 74 20 76 61 6c |uote ele|ment val|
|00000400| 75 65 73 2e 20 0a 22 3a | 22 20 6e 6f 74 20 61 6c |ues. .":|" not al|
|00000410| 6c 6f 77 65 64 20 6f 6e | 20 6b 65 79 77 6f 72 64 |lowed on| keyword|
|00000420| 73 2c 20 6e 6f 72 20 61 | 72 65 20 74 68 65 20 70 |s, nor a|re the p|
|00000430| 72 69 6e 74 65 64 2e 0a | 0a 45 78 61 6d 70 6c 65 |rinted..|.Example|
|00000440| 3a 0a 0a 28 64 65 66 73 | 74 72 75 63 74 20 66 6f |:..(defs|truct fo|
|00000450| 6f 20 28 78 20 31 30 29 | 29 0a 0a 0a 23 53 28 66 |o (x 10)|)...#S(f|
|00000460| 6f 6f 29 20 20 20 70 72 | 69 6e 74 73 20 23 53 28 |oo)   pr|ints #S(|
|00000470| 66 6f 6f 20 78 20 31 30 | 29 20 69 6e 73 74 65 61 |foo x 10|) instea|
|00000480| 64 20 6f 66 20 23 53 28 | 66 6f 6f 20 3a 78 20 31 |d of #S(|foo :x 1|
|00000490| 30 29 0a 0a 23 53 28 66 | 6f 6f 20 3a 78 20 31 30 |0)..#S(f|oo :x 10|
|000004a0| 29 20 20 67 69 76 65 73 | 20 61 6e 20 65 72 72 6f |)  gives| an erro|
|000004b0| 72 0a 0a 23 53 28 66 6f | 6f 20 78 20 28 2b 20 33 |r..#S(fo|o x (+ 3|
|000004c0| 20 34 29 29 20 67 69 76 | 65 73 20 23 53 28 66 6f | 4)) giv|es #S(fo|
|000004d0| 6f 20 78 20 37 29 20 69 | 6e 73 74 65 61 64 20 6f |o x 7) i|nstead o|
|000004e0| 66 20 23 53 28 66 6f 6f | 20 3a 78 20 28 2b 33 20 |f #S(foo| :x (+3 |
|000004f0| 34 29 29 0a 0a 49 6e 20 | 78 6c 72 64 73 74 72 75 |4))..In |xlrdstru|
|00000500| 63 74 28 29 20 28 78 6c | 73 74 72 75 63 74 2e 63 |ct() (xl|struct.c|
|00000510| 29 0a 0a 63 68 61 6e 67 | 65 3a 0a 09 73 70 72 69 |)..chang|e:..spri|
|00000520| 6e 74 66 28 62 75 66 2c | 22 3a 25 73 22 2c 67 65 |ntf(buf,|":%s",ge|
|00000530| 74 73 74 72 69 6e 67 28 | 67 65 74 70 6e 61 6d 65 |tstring(|getpname|
|00000540| 28 73 6c 6f 74 6e 61 6d | 65 29 29 29 3b 0a 0a 09 |(slotnam|e)));...|
|00000550| 2f 2a 20 61 64 64 20 74 | 68 65 20 73 6c 6f 74 20 |/* add t|he slot |
|00000560| 6b 65 79 77 6f 72 64 20 | 2a 2f 0a 09 72 70 6c 61 |keyword |*/..rpla|
|00000570| 63 64 28 6c 61 73 74 2c | 63 6f 6e 73 28 78 6c 65 |cd(last,|cons(xle|
|00000580| 6e 74 65 72 28 62 75 66 | 29 2c 4e 49 4c 29 29 3b |nter(buf|),NIL));|
|00000590| 0a 0a 74 6f 3a 0a 0a 0a | 09 2f 2a 20 61 64 64 20 |..to:...|./* add |
|000005a0| 74 68 65 20 73 6c 6f 74 | 20 6b 65 79 77 6f 72 64 |the slot| keyword|
|000005b0| 20 2a 2f 0a 09 69 66 20 | 28 2a 28 67 65 74 73 74 | */..if |(*(getst|
|000005c0| 72 69 6e 67 28 67 65 74 | 70 6e 61 6d 65 28 73 6c |ring(get|pname(sl|
|000005d0| 6f 74 6e 61 6d 65 29 29 | 29 20 21 3d 20 27 3a 27 |otname))|) != ':'|
|000005e0| 29 20 7b 20 2f 2a 20 61 | 64 64 20 63 6f 6c 6f 6e |) { /* a|dd colon|
|000005f0| 20 2a 2f 0a 09 09 73 70 | 72 69 6e 74 66 28 62 75 | */...sp|rintf(bu|
|00000600| 66 2c 22 3a 25 73 22 2c | 67 65 74 73 74 72 69 6e |f,":%s",|getstrin|
|00000610| 67 28 67 65 74 70 6e 61 | 6d 65 28 73 6c 6f 74 6e |g(getpna|me(slotn|
|00000620| 61 6d 65 29 29 29 3b 0a | 09 09 72 70 6c 61 63 64 |ame)));.|..rplacd|
|00000630| 28 6c 61 73 74 2c 63 6f | 6e 73 28 78 6c 65 6e 74 |(last,co|ns(xlent|
|00000640| 65 72 28 62 75 66 29 2c | 4e 49 4c 29 29 3b 0a 09 |er(buf),|NIL));..|
|00000650| 7d 0a 09 65 6c 73 65 20 | 7b 0a 09 09 72 70 6c 61 |}..else |{...rpla|
|00000660| 63 64 28 6c 61 73 74 2c | 63 6f 6e 73 28 73 6c 6f |cd(last,|cons(slo|
|00000670| 74 6e 61 6d 65 2c 4e 49 | 4c 29 29 3b 0a 09 7d 0a |tname,NI|L));..}.|
|00000680| 0a 61 6e 64 20 63 68 61 | 6e 67 65 3a 0a 09 2f 2a |.and cha|nge:../*|
|00000690| 20 61 64 64 20 74 68 65 | 20 76 61 6c 75 65 20 65 | add the| value e|
|000006a0| 78 70 72 65 73 73 69 6f | 6e 20 2a 2f 0a 09 72 70 |xpressio|n */..rp|
|000006b0| 6c 61 63 64 28 6c 61 73 | 74 2c 63 6f 6e 73 28 63 |lacd(las|t,cons(c|
|000006c0| 61 72 28 6c 69 73 74 29 | 2c 4e 49 4c 29 29 3b 0a |ar(list)|,NIL));.|
|000006d0| 09 6c 61 73 74 20 3d 20 | 63 64 72 28 6c 61 73 74 |.last = |cdr(last|
|000006e0| 29 3b 0a 09 6c 69 73 74 | 20 3d 20 63 64 72 28 6c |);..list| = cdr(l|
|000006f0| 69 73 74 29 3b 0a 0a 74 | 6f 3a 0a 09 2f 2a 20 61 |ist);..t|o:../* a|
|00000700| 64 64 20 74 68 65 20 76 | 61 6c 75 65 20 65 78 70 |dd the v|alue exp|
|00000710| 72 65 73 73 69 6f 6e 20 | 20 2d 2d 20 51 55 4f 54 |ression | -- QUOT|
|00000720| 45 44 20 28 54 41 41 20 | 4d 4f 44 29 20 2a 2f 0a |ED (TAA |MOD) */.|
|00000730| 09 72 70 6c 61 63 64 28 | 6c 61 73 74 2c 63 6f 6e |.rplacd(|last,con|
|00000740| 73 28 4e 49 4c 2c 4e 49 | 4c 29 29 3b 0a 09 6c 61 |s(NIL,NI|L));..la|
|00000750| 73 74 20 3d 20 63 64 72 | 28 6c 61 73 74 29 3b 0a |st = cdr|(last);.|
|00000760| 09 72 70 6c 61 63 61 28 | 6c 61 73 74 2c 20 28 73 |.rplaca(|last, (s|
|00000770| 6c 6f 74 6e 61 6d 65 20 | 3d 20 63 6f 6e 73 28 73 |lotname |= cons(s|
|00000780| 5f 71 75 6f 74 65 2c 4e | 49 4c 29 29 29 3b 0a 09 |_quote,N|IL)));..|
|00000790| 72 70 6c 61 63 64 28 73 | 6c 6f 74 6e 61 6d 65 2c |rplacd(s|lotname,|
|000007a0| 20 63 6f 6e 73 28 63 61 | 72 28 6c 69 73 74 29 2c | cons(ca|r(list),|
|000007b0| 20 4e 49 4c 29 29 3b 0a | 09 6c 69 73 74 20 3d 20 | NIL));.|.list = |
|000007c0| 63 64 72 28 6c 69 73 74 | 29 3b 0a 0a 0a 0a 49 6e |cdr(list|);....In|
|000007d0| 20 78 6c 70 72 73 74 72 | 75 63 74 28 29 2c 20 72 | xlprstr|uct(), r|
|000007e0| 65 70 6c 61 63 65 3a 0a | 09 78 6c 70 75 74 63 28 |eplace:.|.xlputc(|
|000007f0| 66 70 74 72 2c 27 20 27 | 29 3b 0a 0a 77 69 74 68 |fptr,' '|);..with|
|00000800| 3a 0a 09 78 6c 70 75 74 | 73 74 72 28 66 70 74 72 |:..xlput|str(fptr|
|00000810| 2c 22 20 3a 22 29 3b 09 | 2f 2a 20 54 41 41 20 4d |," :");.|/* TAA M|
|00000820| 4f 44 2c 20 63 6f 6c 6f | 6e 73 20 73 68 6f 75 6c |OD, colo|ns shoul|
|00000830| 64 20 73 68 6f 77 20 2a | 2f 0a 0a 2a 2a 2a 2a 2a |d show *|/..*****|
|00000840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 49 6e 20 58 |********|***.In X|
|00000850| 4c 49 53 50 20 32 2e 31 | 2c 20 61 74 74 65 6d 70 |LISP 2.1|, attemp|
|00000860| 74 73 20 74 6f 20 77 72 | 69 74 65 20 74 6f 20 61 |ts to wr|ite to a|
|00000870| 20 73 74 72 75 63 74 75 | 72 65 20 65 6c 65 6d 65 | structu|re eleme|
|00000880| 6e 74 20 62 65 79 6f 6e | 64 20 74 68 65 20 65 6e |nt beyon|d the en|
|00000890| 64 20 6f 66 0a 74 68 65 | 20 73 74 72 75 63 74 75 |d of.the| structu|
|000008a0| 72 65 20 28 69 2e 65 2e | 20 77 72 6f 6e 67 20 61 |re (i.e.| wrong a|
|000008b0| 63 63 65 73 73 20 66 75 | 6e 63 74 69 6f 6e 20 75 |ccess fu|nction u|
|000008c0| 73 65 64 29 20 74 65 6e | 64 73 20 74 6f 20 63 61 |sed) ten|ds to ca|
|000008d0| 75 73 65 20 61 20 63 72 | 61 73 68 2e 0a 0a 46 49 |use a cr|ash...FI|
|000008e0| 58 3a 20 69 6e 20 62 6f | 74 68 20 78 73 74 72 72 |X: in bo|th xstrr|
|000008f0| 65 66 28 29 20 61 6e 64 | 20 78 73 74 72 73 65 74 |ef() and| xstrset|
|00000900| 28 29 20 28 69 6e 20 78 | 6c 73 74 72 75 63 74 2e |() (in x|lstruct.|
|00000910| 63 29 20 0a 0a 61 66 74 | 65 72 3a 0a 20 20 20 20 |c) ..aft|er:.    |
|00000920| 78 6c 6c 61 73 74 61 72 | 67 28 29 3b 20 0a 0a 61 |xllastar|g(); ..a|
|00000930| 64 64 3a 0a 20 20 20 20 | 69 66 20 28 69 20 3e 3d |dd:.    |if (i >=|
|00000940| 20 67 65 74 73 69 7a 65 | 28 73 74 72 29 29 20 2f | getsize|(str)) /|
|00000950| 2a 20 77 72 6f 6e 67 20 | 73 74 72 75 63 74 75 72 |* wrong |structur|
|00000960| 65 2a 2f 0a 09 78 6c 65 | 72 72 6f 72 28 22 42 61 |e*/..xle|rror("Ba|
|00000970| 64 20 73 74 72 75 63 74 | 75 72 65 20 72 65 66 65 |d struct|ure refe|
|00000980| 72 65 6e 63 65 22 2c 73 | 74 72 29 3b 0a 0a 0a 2a |rence",s|tr);...*|
|00000990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009a0| 2a 2a 2a 2a 0a 49 20 61 | 64 64 65 64 20 23 2e 20 |****.I a|dded #. |
|000009b0| 6d 61 63 72 6f 2c 20 74 | 6f 20 65 76 61 6c 20 61 |macro, t|o eval a|
|000009c0| 74 20 72 65 61 64 20 74 | 69 6d 65 2e 09 0a 54 6f |t read t|ime...To|
|000009d0| 20 73 77 69 74 63 68 20 | 73 74 61 74 65 6d 65 6e | switch |statemen|
|000009e0| 74 20 69 6e 20 72 6d 68 | 61 73 68 20 61 64 64 3a |t in rmh|ash add:|
|000009f0| 0a 0a 09 63 61 73 65 20 | 27 2e 27 3a 0a 09 09 72 |...case |'.':...r|
|00000a00| 65 61 64 6f 6e 65 28 66 | 70 74 72 2c 26 63 61 72 |eadone(f|ptr,&car|
|00000a10| 28 76 61 6c 29 29 3b 0a | 09 09 72 70 6c 61 63 61 |(val));.|..rplaca|
|00000a20| 28 76 61 6c 2c 78 6c 65 | 76 61 6c 28 63 61 72 28 |(val,xle|val(car(|
|00000a30| 76 61 6c 29 29 29 3b 0a | 09 09 62 72 65 61 6b 3b |val)));.|..break;|
|00000a40| 0a 0a 54 6f 6d 20 41 6c | 6d 79 0a 74 6f 6d 61 40 |..Tom Al|my.toma@|
|00000a50| 74 65 6b 67 76 73 2e 6c | 61 62 73 2e 74 65 6b 2e |tekgvs.l|abs.tek.|
|00000a60| 63 6f 6d 0a 53 74 61 6e | 64 61 72 64 20 44 69 73 |com.Stan|dard Dis|
|00000a70| 63 6c 61 69 6d 65 72 73 | 20 41 70 70 6c 79 0a 0a |claimers| Apply..|
|00000a80| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+